BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/PrFlds1.9.cpt/PrFlds XCMD 1.9/background_2578.txt

Text File | 1989-04-27 | 5KB | 228 lines

-- background: 2578 from stack: in.9
-- bmap block id: 3122
-- flags: 0000
-- background id: 0
-- name: Insurance/Income
----- HyperTalk script -----




-- part 17 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=14 top=45 right=65 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=316 top=136 right=153 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Bday
----- HyperTalk script -----




-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=136 right=153 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Bmonth


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=136 right=153 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Byear
----- HyperTalk script -----
on closeField
  put "19" & field "Byear" & "," & field "BMonth" & "," & field "BDay" & ",,,," into dd
  put the long date into thingg
  convert thingg to dateitems
  put item 1 of thingg - item 1 of dd into years
  if item 2 of dd>item 2 of thingg then subtract 1 from years
  if item 2 of dd=item 2 of thingg then
    if item 3 of dd>item 3 of thingg then subtract 1 from years
  end if
  put years into field "age"
end closeField


-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=446 top=136 right=153 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 2048
-- line height: 16
-- part name: age


-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=377 top=24 right=39 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 16640
-- line height: 12
-- part name: Client ID
----- HyperTalk script -----
on mouseUp
  ask "Chart ID number? (8 digits)" with 00000000
  if it is empty then exit mouseUp
  put numRange(it,1,99999999,-999) into valu
  if valu=-999 then exit mouseUp
  put leadZero(valu,8) into field "Client ID"
end mouseUp


-- part 23 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=467 top=24 right=39 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 16640
-- line height: 12
-- part name: suffix


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=341 top=47 right=64 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Social Security #


-- part 25 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=15 top=68 right=118 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address


-- part 26 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=15 top=121 right=138 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Phone


-- part 27 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=214 top=172 right=189 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Work Phone


-- part 29 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=15 top=149 right=166 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Insurance


-- part 41 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=39 top=172 right=189 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Employer


-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=364 top=172 right=189 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 768
-- line height: 16
-- part name: Income